home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / comms / www / aweb2miami / onlinestatus.awebrx < prev   
Text File  |  1998-11-25  |  476b  |  22 lines
  1. /* $VER: Miami OnlineStatus.awebrx 1.0 (21.10.98) */
  2.  
  3. TCPport='MIAMI.1'
  4. Txt='Not running.'
  5.  
  6. options results
  7. if(show('P',TCPport)) then do
  8.     Txt='Running but not connected.'
  9.     address value TCPport
  10.     'ISONLINE'
  11.     if RC then do
  12.         'GETCONNECT'
  13.         Txt='Connected at 'Result
  14.         'GETCONNECTTIME'
  15.         Txt=Txt' for 'Result%60' minutes.'
  16.         end
  17.     end
  18. Ports=show('P')
  19. parse var Ports . 'AWEB.' Portn .
  20. address value 'AWEB.'Portn
  21. 'Request TITLE="Miami status..." BODY="'Txt'" GADGETS="OK" NOWAIT'
  22.